100 H=6:W=18:REM HEIGHT AND WIDTH OF WINDOW
110 R=10:C=10:REM ROW AND COLUMN POSITION
120 DIM S(H-1,W-1):REM SCREEN CODE ARRAY
130 DIM B$(H-1),C$(H-1)
140 B$(0)="[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
150 B$(1)="[166]DELIVER MESSAGES[166]"
160 B$(2)="[166]IN YOUR PROGRAMS[166]"
170 B$(3)="[166]  WITH WINDOWS. [166]"
180 B$(4)="[166]                [166]"
190 B$(5)="[166][166][166] F1 TO CONT.[166][166][166]"
200 REM *** DEMONSTRATION - SET TEXT COLOR & FILL SCREEN WITH CHARACTERS
210 PRINT"[147]";:FORI=48TO86:A$=A$+CHR$(I):NEXT:FORI=1TO24:PRINTA$:NEXT
220 REM *** STORE ORIGINAL SCREEN CONTENTS AND PRINT WINDOW
230 M=983+40*R+C:REM UPPER LEFT CORNER OF WINDOW
240 PRINT"[158]":REM SET WINDOW COLOR
250 POKE214,R-1:PRINT:PRINT"[145]";:REM SET ROW NUMBER
260 FORI=0TOH-1:FORJ=0TOW-1
270 S(I,J)=PEEK(M+J):NEXT:POKE211,C-1:PRINTB$(I):M=M+40:NEXT
280 REM *** CONVERT STORED SCREEN CODES TO PRINTABLE STRINGS
290 FORI=0TOH-1:FORJ=0TOW-1:A=S(I,J):IFA<32ORA>95THENA=A+64:GOTO310
300 IFA>65THENIFA<96THENA=A+32
310 C$(I)=C$(I)+CHR$(A):NEXT:NEXT
320 REM *** PRESS 'F1' TO REWRITE ORIGINAL TEXT
330 GETR$:IFR$<>CHR$(133)THEN330
340 PRINT"":REM RESTORE ORIGINAL TEXT COLOR
350 POKE214,R-1:PRINT:PRINT"[145]";:REM SET ROW NUMBER
360 FORI=0TOH-1:POKE211,C-1:PRINTC$(I):NEXT
370 REM RETURN TO MAIN PROGRAM